inherited fmAddAgreements: TfmAddAgreements
  Width = 422
  Height = 405
  Caption = #1044#1086#1075#1086#1074#1086#1088
  Constraints.MaxHeight = 405
  Constraints.MaxWidth = 422
  Constraints.MinHeight = 405
  Constraints.MinWidth = 422
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel [0]
    Left = 8
    Top = 48
    Width = 65
    Height = 13
    Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel [1]
    Left = 119
    Top = 64
    Width = 90
    Height = 13
    Caption = #1044#1072#1090#1072' '#1079#1072#1074#1077#1088#1096#1077#1085#1080#1103
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object sbReciever: TSpeedButton [2]
    Left = 383
    Top = 118
    Width = 23
    Height = 22
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
      300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
      330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
      333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
      339977FF777777773377000BFB03333333337773FF733333333F333000333333
      3300333777333333337733333333333333003333333333333377333333333333
      333333333333333333FF33333333333330003333333333333777333333333333
      3000333333333333377733333333333333333333333333333333}
    NumGlyphs = 2
    OnClick = sbRecieverClick
  end
  object Label18: TLabel [3]
    Left = 8
    Top = 99
    Width = 92
    Height = 13
    Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100' '#1091#1089#1083#1091#1075
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label17: TLabel [4]
    Left = 8
    Top = 155
    Width = 94
    Height = 13
    Caption = #1055#1086#1076#1087#1080#1089#1072#1083' '#1076#1086#1075#1086#1074#1086#1088
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object sbSign: TSpeedButton [5]
    Left = 383
    Top = 172
    Width = 23
    Height = 22
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
      300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
      330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
      333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
      339977FF777777773377000BFB03333333337773FF733333333F333000333333
      3300333777333333337733333333333333003333333333333377333333333333
      333333333333333333FF33333333333330003333333333333777333333333333
      3000333333333333377733333333333333333333333333333333}
    NumGlyphs = 2
    OnClick = sbSignClick
  end
  object Label2: TLabel [6]
    Left = 4
    Top = 4
    Width = 82
    Height = 13
    Caption = #1053#1086#1084#1077#1088' '#1076#1086#1075#1086#1074#1086#1088#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel [7]
    Left = 100
    Top = 4
    Width = 83
    Height = 13
    Caption = #1060#1086#1088#1084#1072' '#1076#1086#1075#1086#1074#1086#1088#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label32: TLabel [8]
    Left = 0
    Top = 220
    Width = 414
    Height = 13
    Align = alBottom
    Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  inherited sbBottom: TStatusBar
    Top = 361
    Width = 414
  end
  inherited Panel1: TPanel
    Top = 316
    Width = 414
  end
  object edAGDATE: TcxDBMaskEdit [11]
    Left = 8
    Top = 67
    DataBinding.DataField = 'AGDATE'
    DataBinding.DataSource = dlgDS
    Properties.EditMask = '!99/99/9999;1;_'
    Properties.MaxLength = 0
    Style.BorderStyle = ebs3D
    TabOrder = 2
    Width = 95
  end
  object edAGDATEEND: TcxDBMaskEdit [12]
    Left = 119
    Top = 67
    DataBinding.DataField = 'AGDATEEND'
    DataBinding.DataSource = dlgDS
    Properties.EditMask = '!99/99/9999;1;_'
    Properties.MaxLength = 0
    Style.BorderStyle = ebs3D
    TabOrder = 3
    Width = 95
  end
  object edP_SIGN: TDBEdit [13]
    Left = 8
    Top = 174
    Width = 369
    Height = 21
    TabStop = False
    DataField = 'P_SIGN'
    DataSource = dlgDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 4
  end
  object edP_RECIPIENT: TDBEdit [14]
    Left = 8
    Top = 118
    Width = 369
    Height = 21
    TabStop = False
    DataField = 'P_RECIPIENT'
    DataSource = dlgDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 5
  end
  object edAGID: TDBEdit [15]
    Left = 4
    Top = 18
    Width = 82
    Height = 21
    TabStop = False
    Color = 14677503
    DataField = 'AGID'
    DataSource = dlgDS
    ReadOnly = True
    TabOrder = 6
  end
  object edAGFORM: TDBEdit [16]
    Left = 100
    Top = 18
    Width = 126
    Height = 21
    TabStop = False
    DataField = 'AGFORM'
    DataSource = dlgDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
  end
  object mdAGNOTE: TDBMemo [17]
    Left = 0
    Top = 233
    Width = 414
    Height = 83
    Align = alBottom
    DataField = 'AGNOTE'
    DataSource = dlgDS
    TabOrder = 8
  end
  object edDCAGREE: TDBCheckBox [18]
    Left = 269
    Top = 66
    Width = 91
    Height = 23
    Caption = #1053#1077' '#1076#1077#1081#1089#1090#1074#1091#1077#1090
    DataField = 'AGISNOTWORK'
    DataSource = dlgDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    ValueChecked = '1'
    ValueUnchecked = '0'
    WordWrap = True
  end
  inherited dlgDS: TDataSource
    Left = 344
    Top = 8
  end
  object qServices: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    BufferChunks = 1000
    CachedUpdates = True
    SQL.Strings = (
      'SELECT S.*, ST.STNAME, ST.STTARIF, ST.STDATEBEGIN, ST.STDATEEND'
      'FROM SERVICES S'
      'INNER JOIN SERVICES_TYPE ST ON ST.STID = S.STID'
      'WHERE S.SISDELETE IS NULL'
      '    AND S.SCID = :SCID')
    GeneratorField.Field = 'SID'
    GeneratorField.Generator = 'GEN_SERVICES'
    Left = 40
    Top = 576
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SCID'
        ParamType = ptUnknown
      end>
    object qServicesSID: TIntegerField
      FieldName = 'SID'
      Origin = '"SERVICES"."SID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qServicesAGID: TIntegerField
      FieldName = 'AGID'
      Origin = '"SERVICES"."AGID"'
      Required = True
    end
    object qServicesSCID: TIntegerField
      FieldName = 'SCID'
      Origin = '"SERVICES"."SCID"'
      Required = True
    end
    object qServicesSTID: TIntegerField
      FieldName = 'STID'
      Origin = '"SERVICES"."STID"'
      Required = True
    end
    object qServicesSCOUNT: TIntegerField
      DisplayLabel = #1050#1086#1083'-'#1074#1086
      FieldName = 'SCOUNT'
      Origin = '"SERVICES"."SCOUNT"'
    end
    object qServicesSNOTE: TIBStringField
      FieldName = 'SNOTE'
      Origin = '"SERVICES"."SNOTE"'
      Size = 255
    end
    object qServicesSUSERENTER: TIBStringField
      FieldName = 'SUSERENTER'
      Origin = '"SERVICES"."SUSERENTER"'
      Size = 40
    end
    object qServicesSTIMEENTER: TDateTimeField
      FieldName = 'STIMEENTER'
      Origin = '"SERVICES"."STIMEENTER"'
    end
    object qServicesSUSEREDIT: TIBStringField
      FieldName = 'SUSEREDIT'
      Origin = '"SERVICES"."SUSEREDIT"'
      Size = 40
    end
    object qServicesSTIMEEDIT: TDateTimeField
      FieldName = 'STIMEEDIT'
      Origin = '"SERVICES"."STIMEEDIT"'
    end
    object qServicesSISDELETE: TIntegerField
      FieldName = 'SISDELETE'
      Origin = '"SERVICES"."SISDELETE"'
    end
    object qServicesSTNAME: TIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      FieldName = 'STNAME'
      Origin = '"SERVICES_TYPE"."STNAME"'
      Size = 255
    end
    object qServicesSTTARIF: TIBBCDField
      DisplayLabel = #1058#1072#1088#1080#1092' '#1079#1072' '#1077#1076'.'
      FieldName = 'STTARIF'
      Origin = '"SERVICES_TYPE"."STTARIF"'
      Required = True
      Precision = 18
      Size = 2
    end
  end
  object IBQuery1: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    BufferChunks = 1000
    CachedUpdates = True
    SQL.Strings = (
      'SELECT S.*, ST.STNAME, ST.STTARIF, ST.STDATEBEGIN, ST.STDATEEND'
      'FROM SERVICES S'
      'INNER JOIN SERVICES_TYPE ST ON ST.STID = S.STID'
      'WHERE S.SISDELETE IS NULL'
      '    AND S.SCID = :SCID')
    GeneratorField.Field = 'SID'
    GeneratorField.Generator = 'GEN_SERVICES'
    Left = 40
    Top = 576
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SCID'
        ParamType = ptUnknown
      end>
    object IntegerField1: TIntegerField
      FieldName = 'SID'
      Origin = '"SERVICES"."SID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object IntegerField2: TIntegerField
      FieldName = 'AGID'
      Origin = '"SERVICES"."AGID"'
      Required = True
    end
    object IntegerField3: TIntegerField
      FieldName = 'SCID'
      Origin = '"SERVICES"."SCID"'
      Required = True
    end
    object IntegerField4: TIntegerField
      FieldName = 'STID'
      Origin = '"SERVICES"."STID"'
      Required = True
    end
    object IntegerField5: TIntegerField
      DisplayLabel = #1050#1086#1083'-'#1074#1086
      FieldName = 'SCOUNT'
      Origin = '"SERVICES"."SCOUNT"'
    end
    object IBStringField1: TIBStringField
      FieldName = 'SNOTE'
      Origin = '"SERVICES"."SNOTE"'
      Size = 255
    end
    object IBStringField2: TIBStringField
      FieldName = 'SUSERENTER'
      Origin = '"SERVICES"."SUSERENTER"'
      Size = 40
    end
    object DateTimeField1: TDateTimeField
      FieldName = 'STIMEENTER'
      Origin = '"SERVICES"."STIMEENTER"'
    end
    object IBStringField3: TIBStringField
      FieldName = 'SUSEREDIT'
      Origin = '"SERVICES"."SUSEREDIT"'
      Size = 40
    end
    object DateTimeField2: TDateTimeField
      FieldName = 'STIMEEDIT'
      Origin = '"SERVICES"."STIMEEDIT"'
    end
    object IntegerField6: TIntegerField
      FieldName = 'SISDELETE'
      Origin = '"SERVICES"."SISDELETE"'
    end
    object IBStringField4: TIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      FieldName = 'STNAME'
      Origin = '"SERVICES_TYPE"."STNAME"'
      Size = 255
    end
    object IBBCDField1: TIBBCDField
      DisplayLabel = #1058#1072#1088#1080#1092' '#1079#1072' '#1077#1076'.'
      FieldName = 'STTARIF'
      Origin = '"SERVICES_TYPE"."STTARIF"'
      Required = True
      Precision = 18
      Size = 2
    end
  end
end
